Create an Object

The Visual Basic example below shows the creation of a Milestones Professional schedule.

Public Sub createanobject()
Dim objmilestones As Object, strtemp As String

objmilestones = CreateObject("Milestones")

With objMilestones

.Activate

For nCounter = 1 To 7

strTemp = "This is Task Row " + CStr(nCounter)

.PutCell(nCounter, 1, strTemp)

strTemp = CStr(nCounter + 1) + "/1/2024"

.AddSymbol(nCounter, strTemp, nCounter)

Next nCounter

.SetStartAndEndDates("01/01/2024","12/31/2024")

.setlinesperpage("7")

.Refresh

.Close

End With
End Sub

The result should look something like this (symbols may vary, depending on the user's default template)

It's also possible to retrieve an existing Milestones Professional schedule and make changes to it. See Example 2.